﻿Public Class Factures

    ''' <summary>
    ''' Procedure d'archivage de la facture (archive toute les lignes de la facture + la facture)
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub archiverFacture()

        Me.LignesFactures.Load()
        For Each ligne As LignesFactures In Me.LignesFactures
            ligne.Archive = True
        Next
        Me.Archive = True

    End Sub


End Class
